home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Hamster.EXE / hamster.hsm < prev    next >
Encoding:
Text File  |  2000-05-07  |  2.4 KB  |  66 lines
  1. ########################################################################
  2. # Module     : hamster.hsm
  3. # Description: Functions related with Hamster.
  4. # Maintainer : Juergen Haible <juergen.haible@t-online.de>
  5. # Version    : 2000-05-07
  6. ########################################################################
  7. # NOTE:
  8. # This module is delivered with Hamster and it will be overwritten when
  9. # installing a new version of it. It might also be used by accompanying
  10. # demo-scripts, which depend on the current implementation.
  11. # So do NOT change this file unless you REALLY know what you do!
  12. ########################################################################
  13.  
  14. #!initialize
  15.  
  16.    debug( 255, "<<< module 'hamster.hsm' >>>" )
  17.  
  18.    # HamMessage()-messages:
  19.    varset( $HAM_MSG_HAMSTER_EXIT    , 1 )
  20.    varset( $HAM_MSG_RESET_COUNTERS  , 2 )
  21.    varset( $HAM_MSG_LOCALNNTP_ONOFF , 3 )
  22.    varset( $HAM_MSG_LOCALPOP3_ONOFF , 4 )
  23.    varset( $HAM_MSG_LOCALSMTP_ONOFF , 5 )
  24.    varset( $HAM_MSG_SHOWWINDOW      , 6 )
  25.    varset( $HAM_MSG_SHOWICON        , 7 )
  26.    varset( $HAM_MSG_STOPALLTASKS    , 8 )
  27.  
  28.    # HamPurge()-options:
  29.    varset( $HAM_PURGEOPT_DOALL      , 0xFF )
  30.    varset( $HAM_PURGEOPT_DONEWS     , 0x01 )
  31.    varset( $HAM_PURGEOPT_DOHISTORY  , 0x02 )
  32.    varset( $HAM_PURGEOPT_DOKILLS    , 0x04 )
  33.    varset( $HAM_PURGEOPT_DOMHISTORY , 0x08 )
  34.  
  35. return( 0 )
  36.  
  37. ########################################################################
  38. # HamRequireVersion: Check, if Hamster is new enough to run the script
  39. ########################################################################
  40. # [IN]  $ReqVersion: string with required version
  41. #       $ErrorStop : True: stop script; False: just return result
  42. # [OUT] (result)   : True: version ok, False: version too old
  43. # Example: HamRequireVersion( "1.3.18.0", True )
  44.  
  45. sub HamRequireVersion( $ReqVersion, $ErrorStop )
  46.    var( $r, $r1, $r2, $r3, $r4, $h, $h1, $h2, $h3, $h4 )
  47.  
  48.    RE_Split( $ReqVersion, "\.", $r1, $r2, $r3, $r4 )
  49.    RE_Split( HamVersion,  "\.", $h1, $h2, $h3, $h4 )
  50.  
  51.    $r = str($r1,3) + str($r2,3) + str($r3,3) + str($r4,3)
  52.    $h = str($h1,3) + str($h2,3) + str($h3,3) + str($h4,3)
  53.  
  54.    if( $r <= $h )
  55.       return( True ) # version ok
  56.    else
  57.       if( $ErrorStop )
  58.          $r = "This script requires Hamster Vr. " + $ReqVersion + " or later!"
  59.          msgbox( $r, "Version-Check", 0x10 )
  60.          error( $r )
  61.       endif
  62.       return( False ) # version too old
  63.    endif
  64.  
  65. endsub
  66.